home *** CD-ROM | disk | FTP | other *** search
- mc68020
-
- xdef @FixedMul
- xdef @FixedDiv
-
- ; fixed_t FixedMul (fixed_t a, fixed_t b)
-
- @FixedMul muls.l d1,d1:d0
- move.w d1,d0
- swap d0
- rts
-
- ; fixed_t FixedDiv (fixed_t a, fixed_t b)
-
- @FixedDiv movem.l d2/d3,-(sp)
- move.l d0,d3
- swap d0
- move.w d0,d2
- ext.l d2
- move.w #0,d0
- tst.l d1
- beq.l 3$
- divs.l d1,d2:d0
- bvc.b 1$
- 3$ eor.l d1,d3
- bmi.b 2$
- move.l #$7fffffff,d0
- bra.b 1$
- 2$ move.l #$80000000,d0
- 1$ movem.l (sp)+,d2/d3
- rts
-
- end
-